home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
Demos
/
Herois
/
Codigo.Cst
/
00071_Script_BuscaGenerico
< prev
next >
Wrap
Text File
|
1999-03-19
|
1KB
|
45 lines
property spr, mem
property sprPalavras -- Sprite que contem lista de palavras
property ultimoValor
on getBehaviorDescription
return "Automaticamente atualiza lista de palavras"
end
on getPropertyDescriptionList
set p_list = [ ¼
#sprPalavras: [ #comment: "Sprite que contera lista de palavras", ¼
#format: #integer, ¼
#default: 0 ] ¼
]
return p_list
end
on beginSprite me
set spr = the spriteNum of me
set mem = the member of sprite spr
zera me
end
on zera me
set the text of field mem to ""
set the ultimoValor of me to ""
sendSprite(the sprPalavras of me, #zera)
end
on preenche me, palavra
set the text of member mem to palavra
set the ultimoValor of me to palavra
sendSprite(the sprPalavras of me, #preenche, palavra)
end
on idleSprite me
if not (the visibility of sprite spr) then return
put the text of member mem into pal
if pal <> ultimoValor then
set ultimoValor = pal
sendSprite(sprPalavras, #preenche, pal)
stopEvent
end if
end